<?php
 Session_Start () ;
 Include ("../../include/garennes.cfg") ;
 Include ("../../include/init.php") ;
 Include ("../include/config.inc") ;
 verif_droits ($droit_courant, $_SESSION ["code"]) ;
 
 Include ("../../include/var_temp.inc") ;
 
 Include ("../../include/module_trombinoscope.php") ;
 
 $millesime = millesime (0) ;
 $numero_rne = retrouve_rne ($millesime) ; If (StrToUpper (SubStr (PHP_OS, 0, 3) == "WIN")) { $separateur = "\\" ; } Else { $separateur = "/" ; }
 
 Function message ($contenu)
  {
   Echo "<CENTER><FONT COLOR=\"#FF0000\"><B>".$contenu."</B></FONT></CENTER>" ;
  }
 
 If (IsSet ($numero))
  {
   If (($numero > 0) And ($type >= 0))
    {
     // Retrouve la variable contenant les photos
     If ($util == 1)
      {
       // Eleves
       $repertoire_originales = retrouve_variable ("repertoire_originales_eleve").$numero_rne.$separateur ;
       If ($numero == 1) { $repertoire_traitee = retrouve_variable ("repertoire_traitees_eleve").$numero_rne.$separateur ; $nom_var = "traitee" ; }
       Else { $repertoire_traitee = retrouve_variable ("repertoire_vignettes_eleve").$numero_rne.$separateur ; $nom_var = "vignette" ; }
       $type_util = 0 ;
      }
     Else
      {
       // Utilisateurs
       $repertoire_originales = retrouve_variable ("repertoire_originales_utilisateur").$numero_rne.$separateur ;
       If ($numero == 1) { $repertoire_traitee = retrouve_variable ("repertoire_traitees_utilisateur").$numero_rne.$separateur ; $nom_var = "traitee" ; }
       Else { $repertoire_traitee = retrouve_variable ("repertoire_vignettes_utilisateur").$numero_rne.$separateur ; $nom_var = "vignette" ; }
       $type_util = 1 ;
      }
     
     // Retrouve les variables de gestion
     $nom_generique_originale = retrouve_variable ("nom_generique_originale") ;
     $ext_originale = retrouve_variable ("ext_originale") ;
     $nombre_chiffres_originale = retrouve_variable ("nombre_chiffres_originale") ;
     $ext_traitee = retrouve_variable ("ext_traitee") ;
     
     If ($type == 1)
      {
       // convert
       // Parametres
       $p = SQL_commande ("SELECT t.option,s.param FROM tromb_sequences_retaillage s,tromb_types_sequences t WHERE s.numero='".$numero."' AND s.type='".$type."' AND s.id_tromb_type_sequence=t.id_tromb_type_sequence ORDER BY s.ordre", $id_sql) ;
       $params = "" ;
       For ($i = 1 ; $i <= SQL_nbr_lignes ($p) ; $i++)
        {
         $l = SQL_tableau_associatif ($p, "") ;
         $params .= $l ["option"]." ".$l ["param"]." " ;
        }
       $repertoire_scripts = retrouve_variable ("repertoire_scripts").$numero_rne.$separateur ;
       $application_traitement = retrouve_variable ("application_traitement") ;
       $dt = Date ("Ymd_His") ;
       $fichier = FOpen ($repertoire_racine.$repertoire_scripts."/retaille_".$dt.".sh", "w") ;
       FPuts ($fichier, "#!/bin/bash\n") ;
       FPuts ($fichier, "###\n") ;
       FPuts ($fichier, "# Traitement des images du repertoire ".$repertoire_racine.$repertoire_originales."\n") ;
       FPuts ($fichier, "###                                                                                                         ###\n") ;
       FPuts ($fichier, "# Utilise le programme 'convert' du paquetage 'ImageMagick'.                                                  #\n") ;
       FPuts ($fichier, "###                                                                                                         ###\n") ;
       FPuts ($fichier, "# (c)Garennes - Campan Jean-Francois -(11-12)/2003-(08-09)/2004-(06-07-08)/2005-(07-08)/2007-(06-07)/2008     #\n") ;
       FPuts ($fichier, "# GPL                                                                                                         #\n") ;
       FPuts ($fichier, "############################################ DEBUT ############################################################\n") ;
       FPuts ($fichier, "# Lancement le ".$dt."\n") ;
       FPuts ($fichier, "###\n") ;
      }
     Else
      {
       // GD
       // Parametres
       $p = SQL_commande ("SELECT t.option,s.param FROM tromb_sequences_retaillage s,tromb_types_sequences t WHERE s.numero='".$numero."' AND s.type='".$type."' AND s.id_tromb_type_sequence=t.id_tromb_type_sequence ORDER BY s.ordre", $id_sql) ;
       $params [0][0] = 0 ;
       For ($i = 1 ; $i <= SQL_nbr_lignes ($p) ; $i++)
        {
         $l = SQL_tableau_associatif ($p, "") ;
	 $params [0][0]++ ;
         $params [$params [0][0]][0] = $l ["option"] ;
	 $params [$params [0][0]][1] = $l ["param"] ;
        }
      }
     $cpt = 0 ;
     If ($dir = @OpenDir ($repertoire_racine.$repertoire_originales))
      {
       While ($fiche = @ReadDir ($dir))
        {
         $ext = StrToLower (SubStr ($fiche, StrLen ($fiche)-3, 3)) ;
         $nom_g = StrToLower (SubStr ($fiche, 0, StrLen ($nom_generique_originale))) ;
         $nombre = SubStr ($fiche, StrLen ($nom_generique_originale), $nombre_chiffres_originale) ;
         If (($fiche != ".") And ($fiche != "..") And (FileType ($repertoire_racine.$repertoire_originales."/".$fiche) != "dir")
             And ($ext == StrToLower ($ext_originale)) And ($nom_g == StrToLower ($nom_generique_originale)))
          {
	   $res = SQL_commande ("SELECT id_tromb_utilisateur,photo_traitee,".$nom_var." FROM tromb_utilisateurs WHERE photo_originale='".StrToLower ($fiche)."' AND type='".$type_util."' LIMIT 1", $id_sql) ;
	   If (SQL_nbr_lignes ($res) == 1)
	    {
	     $cpt++ ;
	     $r = SQL_ligne_suivante ($res) ;
	     If ($type == 1)
              {
	       // convert
	       FPuts ($fichier, $application_traitement." ".$params." ") ;
	       FPuts ($fichier, $repertoire_racine.$repertoire_originales.$fiche." ") ;
	       //FPuts ($fichier, $repertoire_racine.$repertoire_eleve.$nom_generique_traitee.$nombre.".".$ext_traitee."\n") ;
	       FPuts ($fichier, $repertoire_racine.$repertoire_traitee.$r [1]."\n") ;
              }
	     Else
	      {
	       // GD
	       $img = @ImageCreateFromJPEG ($repertoire_racine.$repertoire_originales.$fiche) ;
	       $taille = @GetImageSize ($repertoire_racine.$repertoire_originales.$fiche) ;
               For ($i = 1 ; $i <= $params [0][0] ; $i++)
                {
	         Switch ($params [$i][0])
		  {
		   Case "extraction" : $mrc = Explode ("+", $params [$i][1]) ;
		                       $lh = Explode ("x", $mrc [0]) ;
				       $gm = Explode ("-", $mrc [1]) ;
				       $taille = $mrc [0] ;
				       If (!IsSet ($dst)) { $dst = @ImageCreateTrueColor ($lh [0], $lh [1]) ; }
				       @ImageCopy ($dst, $img, 0, 0, $gm [0], $gm [1], $lh [0], $lh [1]) ;
				       @ImagePaletteCopy ($dst, $img) ;
		                       Break ;
		   Case "retaillage" : If (!IsSet ($dst))
		                        {
				         $lh = Explode ("x", $params [$i][1]) ;
				         $dst = @ImageCreateTrueColor ($lh [0], $lh [1]) ;
					 // Retrouve la taille
					 $taille = retrouve_variable ("taille_originale") ;
					 $tll = Explode ("x", $taille) ;
					 @ImageCopyResized ($dst, $img, 0, 0, 0, 0, $lh [0], $lh [1], $tll [0], $tll [1]) ;
					}
				       Else
					{
					 $lh = Explode ("x", $params [$i][1]) ;
					 $dst1 = @ImageCreateTrueColor ($lh [0], $lh [1]) ;
					 // Retrouve la taille
					 $tll = Explode ("x", $taille) ;
					 @ImageCopyResized ($dst1, $dst, 0, 0, 0, 0, $lh [0], $lh [1], $tll [0], $tll [1]) ;
					 @ImagePaletteCopy ($dst1, $dst) ;
					}
		                       Break ;
		   Case "qualite" : $qualite = $params [$i][1] ;
		                    Break ;
		   Case "rotation" : $angle = $params [$i][1] ;
		                     If (!IsSet ($dst)) { $dst = @ImageCreateTrueColor ($taille [1], $taille [0]) ; }
		                     $couleur_zone_non_couverte = @ImageColorAllocate ($dst, 255, 255, 255) ;
				     $dst = @ImageRotate ($img, $angle, $couleur_zone_non_couverte) ;
		                     Break ;
		  }
		} 
               //$dst = @ImageCreateTrueColor (347, 480) ;
	       If (!IsSet ($qualite)) { $qualite = 100 ; }
	       Switch (StrToLower ($ext_traitee))
	        {
		    Default :
		 Case "jpg" : If (IsSet ($dst1)) { @ImageJPEG ($dst1, $repertoire_racine.$repertoire_traitee.$r [1], $qualite) ; }
	                      Else { @ImageJPEG ($dst, $repertoire_racine.$repertoire_traitee.$r [1], $qualite) ; }
			      Break ;
		 Case "jpeg" : If (IsSet ($dst1)) { @ImageJPEG ($dst1, $repertoire_racine.$repertoire_traitee.$r [1], $qualite) ; }
	                       Else { @ImageJPEG ($dst, $repertoire_racine.$repertoire_traitee.$r [1], $qualite) ; }
			       Break ;
		 Case "png" : If (IsSet ($dst1)) { @ImagePNG ($dst1, $repertoire_racine.$repertoire_traitee.$r [1]) ; }
	                      Else { @ImagePNG ($dst, $repertoire_racine.$repertoire_traitee.$r [1]) ; }
			      Break ;
		 Case "gif" : If (IsSet ($dst1)) { @ImageGIF ($dst1, $repertoire_racine.$repertoire_traitee.$r [1]) ; }
	                      Else { @ImageGIF ($dst, $repertoire_racine.$repertoire_traitee.$r [1]) ; }
			      Break ;
		}
	       If (IsSet ($dst1)) { @ImageDestroy ($dst1) ; UnSet ($dst1) ; }
               @ImageDestroy ($dst) ;
               @ImageDestroy ($img) ;
	       UnSet ($qualite) ;
	       Unset ($dst) ;
	      }
	     $nom_fichier [$cpt][0] = $r [0] ;
	     $nom_fichier [$cpt][1] = $repertoire_racine.$repertoire_traitee.$r [1] ;
            }
	  }
        }
      }
     If ($type == 1)
      {
       // convert
       FPuts ($fichier, "###                                                                                                         ###\n") ;
       FPuts ($fichier, "# (c)Garennes - Campan Jean-Francois -(11-12)/2003-(08-09)/2004-(06-07-08)/2005-(07-08)/2007-(06-07)/2008     #\n") ;
       FPuts ($fichier, "# GPL                                                                                                         #\n") ;
       FPuts ($fichier, "################################################ FIN ##########################################################\n") ;
       FClose ($fichier) ;
      }
     Else
      {
       // GD
      }
     // Lancement de la conversion (avec convert) et verification
     If ($cpt > 0)
      {
       If ($type == 1)
        {
	 // convert
         ChMod ($repertoire_racine.$repertoire_scripts."/retaille_".$dt.".sh", 0755) ;
         Exec ($repertoire_racine.$repertoire_scripts."/retaille_".$dt.".sh") ;
        }
       Else
        {
         // GD
        }
       // Verification du retaillage	
       $verif = 0 ;
       For ($i = 1 ; $i <= $cpt ; $i++)
        {
	 If (File_Exists ($nom_fichier [$cpt][1]) And (FileSize ($nom_fichier [$cpt][1]) > 0))
	  {
	   $ok = SQL_commande ("UPDATE tromb_utilisateurs SET ".$nom_var."='1',deplacee='0' WHERE id_tromb_utilisateur='".$nom_fichier [$i][0]."' LIMIT 1", $id_sql) ;
	   $verif++ ;
          }
	}
       If ($verif == $total) { $mess = $verif."&nbsp;fichier(s)&nbsp;retaill&eacute;(s)." ; }
       Else { $mess = "Seulement&nbsp;".$verif."&nbsp;fichier(s)&nbsp;sur&nbsp;".$total."&nbsp;ont&nbsp;&eacute;t&eacute;&nbsp;retaill&eacute;(s)." ; }
      }
     Else
      {
       // Aucune photo
       $mess = "Aucune&nbsp;photo&nbsp;n'a&nbsp;&eacute;t&eacute;&nbsp;retaill&eacute;e&nbsp;!" ;
      }
    }
   ElseIf (($numero > 0) And ($type < 0) And ($type > -5))
    {
     // Deplacement d'images
     If ($type == -1)
      {
       // Deplacement Originale->Stockage Eleves
       $cond = "AND deplacee='0'" ;
       $repertoire_originales = retrouve_variable ("repertoire_originales_eleve").$numero_rne.$separateur ;
       $repertoire_stockage = retrouve_variable ("repertoire_stockage_photos_eleves").$numero_rne.$separateur ;
       $repertoire_traitee = retrouve_variable ("repertoire_traitees_eleve").$numero_rne.$separateur ;
       $repertoire_vignette = retrouve_variable ("repertoire_vignettes_eleve").$numero_rne.$separateur ;
       $deplacement = 1 ;
       $type_util = 0 ;
      }
     ElseIf ($type == -2)
      {
       // Deplacement Stockage->Originale Eleves
       $cond = "" ;
       $repertoire_stockage = retrouve_variable ("repertoire_originales_eleve").$numero_rne.$separateur ;
       $repertoire_originales = retrouve_variable ("repertoire_stockage_photos_eleves").$numero_rne.$separateur ;
       $repertoire_traitee = retrouve_variable ("repertoire_traitees_eleve").$numero_rne.$separateur ;
       $repertoire_vignette = retrouve_variable ("repertoire_vignettes_eleve").$numero_rne.$separateur ;
       $deplacement = 0 ;
       $type_util = 0 ;
      }
     ElseIf ($type == -3)
      {
       // Deplacement Originale->Stockage Utilisateurs
       $cond = "AND deplacee='0'" ;
       $repertoire_originales = retrouve_variable ("repertoire_originales_utilisateur").$numero_rne.$separateur ;
       $repertoire_stockage = retrouve_variable ("repertoire_stockage_photos_utilisateurs").$numero_rne.$separateur ;
       $repertoire_traitee = retrouve_variable ("repertoire_traitees_utilisateur").$numero_rne.$separateur ;
       $repertoire_vignette = retrouve_variable ("repertoire_vignettes_utilisateur").$numero_rne.$separateur ;
       $deplacement = 1 ;
       $type_util = 1 ;
      }
     ElseIf ($type == -4)
      {
       // Deplacement Stockage->Originale Utilisateurs
       $cond = "" ;
       $repertoire_stockage = retrouve_variable ("repertoire_originales_utilisateur").$numero_rne.$separateur ;
       $repertoire_originales = retrouve_variable ("repertoire_stockage_photos_utilisateurs").$numero_rne.$separateur ;
       $repertoire_traitee = retrouve_variable ("repertoire_traitees_utilisateur").$numero_rne.$separateur ;
       $repertoire_vignette = retrouve_variable ("repertoire_vignettes_utilisateur").$numero_rne.$separateur ;
       $deplacement = 0 ;
       $type_util = 1 ;
      }
     // Retrouve les fichiers a deplacer
     If ($cond)
      {
       $res = SQL_commande ("SELECT id_tromb_utilisateur,photo_originale,photo_traitee FROM tromb_utilisateurs WHERE traitee='1' AND vignette='1' AND type='".$type_util."' ".$cond, $id_sql) ;
       $nombre = SQL_nbr_lignes ($res) ;
       For ($i = 0 ; $i < $nombre ; $i++)
        {
	 $l = SQL_tableau_associatif ($res, "") ;
	 $fichiers [$i][0] = $l ["photo_originale"] ;
	 $fichiers [$i][1] = $l ["id_tromb_utilisateur"] ;
        }
      }
     Else
      {
       $nombre = 0 ;
       If ($dir = @OpenDir ($repertoire_racine.$repertoire_originales))
        {
         While ($fiche = @ReadDir ($dir))
	  {
	   If (($fiche != ".") And ($fiche != "..") And (FileType ($repertoire_racine.$repertoire_originales."/".$fiche) != "dir")
             And (FileSize ($repertoire_racine.$repertoire_originales."/".$fiche) > 0))
	    {
	     $fichiers [$nombre][0] = $fiche ;
	     $fichiers [$nombre][1] = 0 ;
	     $nombre++ ;
	    }
	  }
	}
      }
     // Deplacement
     If ($nombre > 0)
      {
       For ($i = 0 ; $i < $nombre ; $i++)
        {
         // Fichier existe t-il deja ?
         If ((File_Exists ($repertoire_racine.$repertoire_stockage.$fichiers [$i][0])) And (FileSize ($repertoire_racine.$repertoire_stockage.$fichiers [$i][0]) > 0))
          {
           // On efface
           $ok = @UnLink ($repertoire_racine.$repertoire_stockage.$fichiers [$i][0]) ;
          }
         // Copie
         $ok = @Copy ($repertoire_racine.$repertoire_originales.$fichiers [$i][0], $repertoire_racine.$repertoire_stockage.$fichiers [$i][0]) ;
         // Verification de la copie
         If ((File_Exists ($repertoire_racine.$repertoire_stockage.$fichiers [$i][0])) And (FileSize ($repertoire_racine.$repertoire_stockage.$fichiers [$i][0]) > 0))
          {
           // Mise a jour de la base
	   If ($fichiers [$i][1] > 0) { $ok = SQL_commande ("UPDATE tromb_utilisateurs SET deplacee='".$deplacement."' WHERE id_tromb_utilisateur='".$fichiers [$i][1]."' LIMIT 1", $id_sql) ; }
	   Else { $ok = SQL_commande ("UPDATE tromb_utilisateurs SET deplacee='".$deplacement."' WHERE photo_originale='".$fichiers [$i][0]."' AND type='".$type_util."' LIMIT 1", $id_sql) ; }
           // Destruction de l'originale
           $ok = @UnLink ($repertoire_racine.$repertoire_originales.$fichiers [$i][0]) ;
          }
        }
      }
    }
   ElseIf (($numero > 0) And ($type == -5))
    {
     // Affichage de la liste des fichiers d'un repertoire
     // Retrouve les variables de gestion
     $nom_generique_originale = retrouve_variable ("nom_generique_originale") ;
     $ext_originale = retrouve_variable ("ext_originale") ;
     $nombre_chiffres_originale = retrouve_variable ("nombre_chiffres_originale") ;
     If ($util == 1)
      {
       $rep = retrouve_variable ("repertoire_originales_eleve").$numero_rne.$separateur ;
       $nom = "original&nbsp;&eacute;l&egrave;ves" ;
       $type_util = 0 ;
      }
     ElseIf ($util == 2)
      {
       $rep = retrouve_variable ("repertoire_originales_utilisateur").$numero_rne.$separateur ;
       $nom = "original&nbsp;utilisateurs" ;
       $type_util = 1 ;
      }
     ElseIf ($util == -1)
      {
       $rep = retrouve_variable ("repertoire_stockage_photos_eleves").$numero_rne.$separateur ;
       $nom = "de&nbsp;stockage&nbsp;&eacute;l&egrave;ves" ;
       $type_util = 0 ;
      }
     ElseIf ($util == -2)
      {
       $rep = retrouve_variable ("repertoire_stockage_photos_utilisateurs").$numero_rne.$separateur ;
       $nom = "de&nbsp;stockage&nbsp;utilisateurs" ;
       $type_util = 1 ;
      }
     $resultats = SQL_commande ("SELECT * FROM menus WHERE numero='".$droit_courant."' AND ordre='0'", $id_sql) ;
     $l = SQL_tableau_associatif ($resultats, "") ; 
     Echo "<HTML><HEAD><TITLE>Garennes.</TITLE>" ;
     Echo styles ("none", "none", "none", $l ["lien"], "none") ;
     Echo "</HEAD>" ;
     Echo "<BODY BACKGROUND=\"../images/fond.png\" TEXT=\"#000000\" onContextMenu=\"return false\">" ;
     Echo "<TABLE BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"0\" WIDTH=\"100%\"><TR>" ;
     Echo "<TD>&nbsp;</TD><TD ALIGN=\"CENTER\"><B>Liste&nbsp;des&nbsp;fichiers&nbsp;du&nbsp;r&eacute;pertoire&nbsp;<FONT COLOR=\"#0000FF\"><B>".$nom."</B></FONT>.</B></TD>" ;
     Echo "<TD ALIGN=\"RIGHT\"><A HREF=\"javascript:window.close()\"><IMG SRC=\"../../images/quitter.png\" BORDER=\"0\" TITLE=\"Fermer la fen&ecirc;tre...\"></A></TD></TR></TABLE>" ;
     $num = 0 ;
     If ($dir = @OpenDir ($repertoire_racine.$rep))
      {
       While ($fiche = @ReadDir ($dir))
        {
         $ext = StrToLower (SubStr ($fiche, StrLen ($fiche)-3, 3)) ;
         $nom_g = StrToLower (SubStr ($fiche, 0, StrLen ($nom_generique_originale))) ;
         $nombre = SubStr ($fiche, StrLen ($nom_generique_originale), $nombre_chiffres_originale) ;
         If (($fiche != ".") And ($fiche != "..") And (FileType ($repertoire_racine.$rep."/".$fiche) != "dir")
             And ($ext == StrToLower ($ext_originale)) And ($nom_g == StrToLower ($nom_generique_originale)))
          {
	   $fichiers [$num] = $fiche ;
	   $num++ ;
          }
	}
      }
     If ($num > 0)
      {
       Sort ($fichiers) ;
       If (!IsSet ($nbr_col)) { $nbr_col = 5 ; }
       Echo "<BR><TABLE BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"0\" ALIGN=\"CENTER\" BGCOLOR=\"".$l ["couleur_fond"]."\" STYLE=\"border:1px solid #000000;border-collapse:collapse\"><TR>" ;
       Echo "<TD>&nbsp;Nombre&nbsp;de&nbsp;colonnes&nbsp;:&nbsp;</TD>" ;
       For ($i = 1 ; $i <= 10 ; $i++)
        {
	 Echo "<TD ALIGN=\"CENTER\"" ;
	 If ($i == $nbr_col) { Echo " STYLE=\"border:1px #00FF00 solid;background-color:".$l ["nom"]."\"" ; }
	 Echo "><A HREF=\"./retaillage.php?numero=".$numero."&type=".$type."&util=".$util."&nbr_col=".$i."\">&nbsp;".$i."&nbsp;</A></TD>" ;
	}
       Echo "</TR></TABLE>" ;
       $nbr_lignes = Ceil ($num/$nbr_col) ;
       Echo "<BR><TABLE BORDER=\"1\" CELLPADDING=\"0\" CELLSPACING=\"0\" ALIGN=\"CENTER\" BGCOLOR=\"".$l ["couleur_fond"]."\" STYLE=\"border:1px solid #000000;border-collapse:collapse\">" ;
       Echo "<TR><TD ALIGN=\"CENTER\" COLSPAN=\"".$nbr_col."\" BGCOLOR=\"".$l ["lien"]."\">&nbsp;".$num."&nbsp;photo" ;
       If ($num > 0) { Echo "s" ; }
       Echo ".&nbsp;</TD></TR>" ;
       For ($i = 0 ; $i < $nbr_lignes ; $i++)
        {
	 Echo "<TR>" ;
	 For ($j = 0 ; $j < $nbr_col ; $j++)
	  {
	   Echo "<TD ALIGN=\"LEFT\"" ;
	   If ($i*$nbr_col+$j < $num)
	    {
	     If (($i%2+$j)%2 == 1) { Echo " BGCOLOR=\"".$l ["nom"]."\"" ; }
	     Echo ">&nbsp;" ;
	     If ($util > 0)
	      {
	       $res = SQL_commande ("SELECT id_tromb_utilisateur FROM tromb_utilisateurs WHERE photo_originale='".StrToLower ($fichiers [$i*$nbr_col+$j])."' AND type='".$type_util."' LIMIT 1", $id_sql) ;
	       If (SQL_nbr_lignes ($res) == 1) { Echo "<FONT COLOR=\"#0000FF\"><B><I>".$fichiers [$i*$nbr_col+$j]."</I></B></FONT>" ; }
	       Else { Echo $fichiers [$i*$nbr_col+$j] ; }
	      }
	     Else { Echo $fichiers [$i*$nbr_col+$j] ; }
	    }
	   Else { Echo ">" ; }
	   Echo "&nbsp;</TD>" ;
	  }
	 Echo "</TR>" ;
        }
       Echo "</TABLE>" ;
      }
     Else { Echo "<BR><BR><CENTER><B>Aucun fichier.</B></CENTER>" ; }
     Echo "</BODY></HTML>" ;
     Exit () ;
    }
   Else
    {
     // Appel du retaillage
     Echo "<HTML><HEAD><TITLE>Garennes.</TITLE>" ;
     Echo "<META HTTP-EQUIV=\"REFRESH\" CONTENT=\"1;url=./retaillage.php?numero=".(-$numero)."&total=".$total."&type=".$type."&util=".$util."&code=".$_SESSION ["code"]."\">" ;
     Echo "</HEAD>" ;
     Echo "<BODY BACKGROUND=\"../images/fond.png\" TEXT=\"#000000\" onContextMenu=\"return false\">" ;
     If ($type > 0)
      {
       Echo "<CENTER><B>".Str_Replace ("\'","'",$titre)."&nbsp;" ;
       If ($util == 1) { Echo "&eacute;l&egrave;ves" ; } Else { Echo "utilisateurs" ; }
       Echo "&nbsp;en&nbsp;cours...&nbsp;Veuillez&nbsp;patienter&nbsp;!</B><BR>" ;
      }
     Else
      {
       Echo "<CENTER><B>D&eacute;placement des photos du repertoire<BR>" ;
       If ($type == -1) { Echo "original vers le r&eacute;pertoire de stockage<BR>&eacute;leves" ; }
       ElseIf ($type == -2) { Echo "de stockage vers le r&eacute;pertoire original<BR>&eacute;leves" ; }
       ElseIf ($type == -3) { Echo "original vers le r&eacute;pertoire de stockage<BR>utilisateurs" ; }
       ElseIf ($type == -4) { Echo "de stockage vers le r&eacute;pertoire original<BR>utilisateurs" ; }
       Echo " en cours... Veuillez patienter !</B><BR>" ;
      }
     Echo "<a href=\"./retaillage.php?numero=".(-$numero)."&total=".$total."&type=".$type."&util=".$util."&code=".$_SESSION ["code"]."\"><IMG SRC=\"../../images/attente.gif\" BORDER=\"1\"></a></CENTER>" ;
     Echo "</BODY></HTML>" ;
     Exit () ;
    }
  }
 
 $resultats = SQL_commande ("SELECT * FROM menus WHERE numero='".$droit_courant."' AND ordre='0'", $id_sql) ;
 $l = SQL_tableau_associatif ($resultats, "") ; 
 Echo "<HTML><HEAD>" ;
 entete_html ("Garennes", "", 1) ;
 Echo styles ("none", "none", "none", $l ["lien"], "none") ;
 Include ("./retaillage.js") ;
 Echo "</HEAD>" ;

 Echo "<BODY BACKGROUND=\"../images/fond.png\" TEXT=\"#000000\" onContextMenu=\"return false\">" ;
 Echo "<CENTER><FONT COLOR=\"#0000FF\"><B>Traitement des photos.</B></FONT></CENTER>" ;

 // Verification de l'ecriture dans les repertoires 
 $ok = 1 ;
 verif_repertoire ("repertoire_originales_eleve",$numero_rne.$separateur,$millesime) ;
 verif_repertoire ("repertoire_originales_utilisateur",$numero_rne.$separateur,$millesime) ;
 verif_repertoire ("repertoire_traitees_eleve",$numero_rne.$separateur,$millesime) ;
 verif_repertoire ("repertoire_vignettes_eleve",$numero_rne.$separateur,$millesime) ;
 verif_repertoire ("repertoire_traitees_utilisateur",$numero_rne.$separateur,$millesime) ;
 verif_repertoire ("repertoire_vignettes_utilisateur",$numero_rne.$separateur,$millesime) ;
 verif_repertoire ("repertoire_stockage_photos_eleves",$numero_rne.$separateur,$millesime) ;
 verif_repertoire ("repertoire_stockage_photos_utilisateurs",$numero_rne.$separateur,$millesime) ;
 verif_repertoire ("repertoire_scripts",$numero_rne.$separateur,$millesime) ;
 If (IsSet ($mess)) { message ($mess) ; } 
 
 If ($ok > 0)
  {
   $application_traitement = retrouve_variable ("application_traitement") ;
   If ($application_traitement == "interne") { $type = 0 ; } Else { $type = 1 ; }
   $res = SQL_commande ("SELECT nom,numero FROM tromb_progs_retaille WHERE type='".$type."' ORDER BY numero", $id_sql) ;
   If (SQL_nbr_lignes ($res) > 0)
    {
     // Retrouve les variables de gestion
     $nom_generique_originale = retrouve_variable ("nom_generique_originale") ;
     $ext_originale = retrouve_variable ("ext_originale") ;
     $nombre_chiffres_originale = retrouve_variable ("nombre_chiffres_originale") ;
     // Eleves
     $rep_originales [0] = retrouve_variable ("repertoire_originales_eleve").$numero_rne.$separateur ;
     // Utilisateurs
     $rep_originales [1] = retrouve_variable ("repertoire_originales_utilisateur").$numero_rne.$separateur ;
     
     For ($i = 0 ; $i <= 1 ; $i++)
      {
       $compteur [$i][0] = 0 ;
       $compteur [$i][1] = 0 ; // Traitee
       $compteur [$i][2] = 0 ; // Vignette
       $compteur [$i][3] = 0 ; // Nombre total de photos
       If ($dir = @OpenDir ($repertoire_racine.$rep_originales [$i]))
        {
         While ($fiche = @ReadDir ($dir))
          {
           $ext = StrToLower (SubStr ($fiche, StrLen ($fiche)-3, 3)) ;
           $nom_g = StrToLower (SubStr ($fiche, 0, StrLen ($nom_generique_originale))) ;
           $nombre = SubStr ($fiche, StrLen ($nom_generique_originale), $nombre_chiffres_originale) ;
           //echo $ext."|".$nom_g."|".$nombre."|".StrToLower ($ext_originale)."|".StrToLower ($nom_generique_originale)."|".$fiche."<br>" ;
           If (($fiche != ".") And ($fiche != "..") And (FileType ($repertoire_racine.$rep_originales [$i].$separateur.$fiche) != "dir")
               And ($ext == StrToLower ($ext_originale)) And ($nom_g == StrToLower ($nom_generique_originale)))
            {
             //echo "ok" ;
	     $compteur [$i][3]++ ;
	     $tt = SQL_commande ("SELECT traitee,vignette FROM tromb_utilisateurs WHERE photo_originale='".StrToLower ($fiche)."' AND type='".$i."' LIMIT 1", $id_sql) ;
	     If (SQL_nbr_lignes ($tt) == 1)
	      {
	       $compteur [$i][0]++ ;
	       $t = SQL_ligne_suivante ($tt) ;
	       If ($t [0] == 1) { $compteur [$i][1]++ ; }
	       If ($t [1] == 1) { $compteur [$i][2]++ ; }
	      }
	    }
          }
	}
       Else
        {
         // Probleme d'acces
	 $compteur [$i][0] = -1 ;
        }
      }
     
     Echo "<TABLE BORDER=\"1\" CELLSPACING=\"0\" CELLPADDING=\"0\" ALIGN=\"CENTER\" BGCOLOR=\"".$l ["couleur_fond"]."\" STYLE=\"border:1px #000000 solid;border-collapse:collapse\">" ;
     Echo "<TR><TD ALIGN=\"CENTER\" COLSPAN=\"2\" BGCOLOR=\"".$l ["lien"]."\">&nbsp;S&eacute;lectionnez&nbsp;le&nbsp;programme&nbsp;de&nbsp;traitement&nbsp;que&nbsp;vous&nbsp;voulez&nbsp;lancer&nbsp;</TD></TR>" ;
     Echo "<TR><TD COLSPAN=\"2\"><TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" WIDTH=\"100%\">" ;
     Echo "<TR BGCOLOR=\"".$l ["lien"]."\"><TD ALIGN=\"CENTER\" STYLE=\"border-bottom:1px #000000 solid\">&nbsp;&Eacute;l&egrave;ves&nbsp;</TD><TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD><TD ALIGN=\"CENTER\" STYLE=\"border-bottom:1px #000000 solid\">&nbsp;Utilisateurs&nbsp;</TD></TR>" ;
     For ($i = 1 ; $i <= SQL_nbr_lignes ($res) ; $i++)
      {
       $lg = SQL_tableau_associatif ($res, "") ;
       Echo "<TR><TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;</TD><TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD><TD></TD></TR>" ;
       If ($i == 1)
        {
	 Echo "<TR><TD BGCOLOR=\"".$l ["nom"]."\" ALIGN=\"CENTER\">&nbsp;" ;
	 If ($compteur [0][0] > 0)
	  {
	   Echo $compteur [0][0]."&nbsp;photo" ;
	   If ($compteur [0][0] > 1) { Echo "s" ; }
	   If ($compteur [0][0] != $compteur [0][3]) { Echo "&nbsp;sur&nbsp;".$compteur [1][3] ; }
	   Echo "&nbsp;utilisable.&nbsp;<A HREF=\"javascript:ouvrefenetre('./retaillage.php?numero=1&type=-5&util=1',400,600);\" BORDER=\"0\">" ;
	   Echo "<IMG SRC=\"../images/liste.png\" BORDER=\"0\" TITLE=\"Liste des photos...\"></A>" ;
	  }
	 Else { Echo "<FONT COLOR=\"#000000\"><B>Aucune&nbsp;photo.</B></FONT>" ; }
	 Echo "&nbsp;</TD>" ;
	 
	 Echo "<TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD>" ;
	 Echo "<TD ALIGN=\"CENTER\">&nbsp;" ;
	 If ($compteur [1][0] > 0)
	  {
	   Echo $compteur [1][0]."&nbsp;photo" ;
	   If ($compteur [1][0] > 1) { Echo "s" ; }
	   If ($compteur [1][0] != $compteur [1][3]) { Echo "&nbsp;sur&nbsp;".$compteur [1][3] ; }
	   Echo "&nbsp;utilisable.&nbsp;<A HREF=\"javascript:ouvrefenetre('./retaillage.php?numero=1&type=-5&util=2',400,600);\" BORDER=\"0\">" ;
	   Echo "<IMG SRC=\"../images/liste.png\" BORDER=\"0\" TITLE=\"Liste des photos...\"></A>" ;
	  }
	 Else { Echo "<FONT COLOR=\"#000000\"><B>Aucune&nbsp;photo.</B></FONT>" ; }
	 Echo "&nbsp;</TD></TR>" ;
	 Echo "<TR><TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;</TD><TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD><TD></TD></TR>" ;
        }
       Echo "<TR>" ;
       // Eleves
       If ($compteur [0][0] > 0)
        {
	 Echo "<FORM><TD ALIGN=\"CENTER\" BGCOLOR=\"".$l ["nom"]."\">" ;
	 Echo "<INPUT TYPE=\"BUTTON\" NAME=\"choix\" VALUE=\" ".$lg ["nom"]." \" " ;
	 Echo "OnClick=\"javascript:location='./retaillage.php?numero=-".$lg ["numero"]."&total=".$compteur [0][0]."&type=".$type."&titre=".Str_Replace ("'","%27",Str_Replace (" ","%20",$lg ["nom"]))."&util=1&code=".$_SESSION ["code"]."'\"" ;
	 If ($compteur [0][$i] == $compteur [0][0]) { Echo " STYLE=\"border:1px #00FF00 solid;background-color:#8CFFA1\"" ; } Else { Echo " STYLE=\"border:1px #FF0000 solid;background-color:#FF9F73\"" ; }
	 Echo "></TD></FORM>" ;
	}
       Else { Echo "<TD BGCOLOR=\"".$l ["nom"]."\"></TD>" ; }
       Echo "<TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD>" ;
       // Utilisateurs
       If ($compteur [1][0] > 0)
        {
	 Echo "<FORM><TD ALIGN=\"CENTER\">" ;
	 Echo "<INPUT TYPE=\"BUTTON\" NAME=\"choix\" VALUE=\" ".$lg ["nom"]." \" " ;
	 Echo "OnClick=\"javascript:location='./retaillage.php?numero=-".$lg ["numero"]."&total=".$compteur [1][0]."&type=".$type."&titre=".Str_Replace ("'","%27",Str_Replace (" ","%20",$lg ["nom"]))."&util=2&code=".$_SESSION ["code"]."'\"" ;
	 If ($compteur [1][$i] == $compteur [1][0]) { Echo " STYLE=\"border:1px #00FF00 solid;background-color:#8CFFA1\"" ; } Else { Echo " STYLE=\"border:1px #FF0000 solid;background-color:#FF9F73\"" ; }
	 Echo "></TD></FORM>" ;
	}
       Else { Echo "<TD></TD>" ; }
       Echo "</TR>" ;
      }
     Echo "<TR><TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;</TD><TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD><TD></TD></TR>" ;
     Echo "</TABLE></TD></TR></TABLE><BR>" ;
     
     Echo "<TABLE BORDER=\"1\" CELLSPACING=\"0\" CELLPADDING=\"0\" ALIGN=\"CENTER\" BGCOLOR=\"".$l ["couleur_fond"]."\" STYLE=\"border:1px #000000 solid;border-collapse:collapse\">" ;
     Echo "<TR><TD ALIGN=\"CENTER\" COLSPAN=\"2\" BGCOLOR=\"".$l ["lien"]."\">&nbsp;D&eacute;placement&nbsp;d'images&nbsp;</TD></TR>" ;
     Echo "<TR><TD COLSPAN=\"2\"><TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" WIDTH=\"100%\">" ;
     Echo "<TR BGCOLOR=\"".$l ["lien"]."\"><TD ALIGN=\"CENTER\" STYLE=\"border-bottom:1px #000000 solid\">&nbsp;&Eacute;l&egrave;ves&nbsp;</TD><TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD><TD ALIGN=\"CENTER\" STYLE=\"border-bottom:1px #000000 solid\">&nbsp;Utilisateurs&nbsp;</TD></TR>" ;
     Echo "<TR><TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;</TD><TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD><TD></TD></TR>" ;
     Echo "<TR>" ;
     // Deplacement photos eleves O->S
     $res = SQL_commande ("SELECT COUNT(*) FROM tromb_utilisateurs WHERE traitee='1' AND vignette='1' AND deplacee='0' AND type='0'", $id_sql) ;
     $r = SQL_ligne_suivante ($res) ;
     $cpt = 0 ;
     $rep = retrouve_variable ("repertoire_originales_eleve").$numero_rne.$separateur ;
     If ($dir = @OpenDir ($repertoire_racine.$rep))
      {
       While ($fiche = @ReadDir ($dir))
        {
         If (($fiche != ".") And ($fiche != "..") And (FileType ($repertoire_racine.$rep.$separateur.$fiche) != "dir") And (FileSize ($repertoire_racine.$rep.$separateur.$fiche) > 0))
          { $cpt++ ; }
        }
      }
     If ($r [0] > 0)
      {
       If ($cpt > 0)
        {
         Echo "<FORM><TD ALIGN=\"CENTER\" BGCOLOR=\"".$l ["nom"]."\">&nbsp;" ;
         Echo "<INPUT TYPE=\"BUTTON\" NAME=\"submit\" VALUE=\"Original -> Stockage\"" ;
         Echo " OnClick=\"javascript:location='./retaillage.php?numero=-".$lg ["numero"]."&type=-1&code=".$_SESSION ["code"]."'\">" ;
         Echo "<INPUT TYPE=\"HIDDEN\" NAME=\"\" VALUE=\"\">&nbsp;</TD></FORM>" ;
	}
       Else { Echo "<TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;Aucune&nbsp;photo&nbsp;sur&nbsp;l'original.&nbsp;</TD>" ; }
      }
     Else
      {
       If ($cpt > 0)
        {
	 Echo "<TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;Aucune&nbsp;photo&nbsp;utilisable&nbsp;sur&nbsp;l'original.&nbsp;" ;
	 Echo "&nbsp;<A HREF=\"javascript:ouvrefenetre('./retaillage.php?numero=1&type=-5&util=1',400,600);\" BORDER=\"0\">" ;
         Echo "<IMG SRC=\"../images/liste.png\" BORDER=\"0\" TITLE=\"Liste des photos sur l'original &eacute;l&egrave;ves...\"></A>&nbsp;</TD>" ;
	}
       Else
        { Echo "<TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;Aucune&nbsp;photo&nbsp;sur&nbsp;l'original.&nbsp;</TD>" ; }
      }
     Echo "<TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD>" ;
     // Deplacement photos utilisateurs O->S
     $res = SQL_commande ("SELECT COUNT(*) FROM tromb_utilisateurs WHERE traitee='1' AND vignette='1' AND deplacee='0' AND type='1'", $id_sql) ;
     $r = SQL_ligne_suivante ($res) ;
     $cpt = 0 ;
     $rep = retrouve_variable ("repertoire_originales_utilisateur").$numero_rne.$separateur ;
     If ($dir = @OpenDir ($repertoire_racine.$rep))
      {
       While ($fiche = @ReadDir ($dir))
        {
         If (($fiche != ".") And ($fiche != "..") And (FileType ($repertoire_racine.$rep.$separateur.$fiche) != "dir") And (FileSize ($repertoire_racine.$rep.$separateur.$fiche) > 0))
          { $cpt++ ; }
        }
      }
     If ($r [0] > 0)
      {
       If ($cpt > 0)
        {
         Echo "<FORM><TD ALIGN=\"CENTER\">&nbsp;" ;
         Echo "<INPUT TYPE=\"BUTTON\" NAME=\"submit\" VALUE=\"Original -> Stockage\"" ;
         Echo " OnClick=\"javascript:location='./retaillage.php?numero=-".$lg ["numero"]."&type=-3&code=".$_SESSION ["code"]."'\">" ;
         Echo "<INPUT TYPE=\"HIDDEN\" NAME=\"\" VALUE=\"\">&nbsp;</TD></FORM>" ;
	}
       Else
        { Echo "<TD>&nbsp;Aucune&nbsp;photo&nbsp;sur&nbsp;l'original.&nbsp;</TD>" ; }
      }
     Else
      {
       If ($cpt > 0)
        {
         Echo "<TD>&nbsp;Aucune&nbsp;photo&nbsp;utilisable&nbsp;sur&nbsp;l'original.&nbsp;" ;
         Echo "&nbsp;<A HREF=\"javascript:ouvrefenetre('./retaillage.php?numero=1&type=-5&util=2',400,600);\" BORDER=\"0\">" ;
         Echo "<IMG SRC=\"../images/liste.png\" BORDER=\"0\" TITLE=\"Liste des photos sur l'original &eacute;l&egrave;ves...\"></A>&nbsp;</TD>" ;
	}
       Else { Echo "<TD>&nbsp;Aucune&nbsp;photo&nbsp;sur&nbsp;l'original.&nbsp;</TD>" ; }
      }
     Echo "</TR>" ;
     
     Echo "<TR><TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;</TD><TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD><TD></TD></TR>" ;
     
     Echo "<TR>" ;
     // Deplacement photos eleves
     $res = SQL_commande ("SELECT COUNT(*) FROM tromb_utilisateurs WHERE traitee='1' AND vignette='1' AND deplacee='1' AND type='0'", $id_sql) ;
     $r = SQL_ligne_suivante ($res) ;
     $cpt = 0 ;
     $rep = retrouve_variable ("repertoire_stockage_photos_eleves").$numero_rne.$separateur ;
     If ($dir = @OpenDir ($repertoire_racine.$rep))
      {
       While ($fiche = @ReadDir ($dir))
        {
         If (($fiche != ".") And ($fiche != "..") And (FileType ($repertoire_racine.$rep.$separateur.$fiche) != "dir") And (FileSize ($repertoire_racine.$rep.$separateur.$fiche) > 0))
          { $cpt++ ; }
        }
      }
     If ($r [0] > 0)
      {
       If ($cpt > 0)
        {
         Echo "<FORM><TD ALIGN=\"CENTER\" BGCOLOR=\"".$l ["nom"]."\">&nbsp;" ;
         Echo "<INPUT TYPE=\"BUTTON\" NAME=\"submit\" VALUE=\"Stockage -> Original\"" ;
         Echo " OnClick=\"javascript:location='./retaillage.php?numero=-".$lg ["numero"]."&type=-2&code=".$_SESSION ["code"]."'\">" ;
         Echo "<INPUT TYPE=\"HIDDEN\" NAME=\"\" VALUE=\"\">&nbsp;<A HREF=\"javascript:ouvrefenetre('./retaillage.php?numero=1&type=-5&util=-1',400,600);\" BORDER=\"0\">" ;
         Echo "<IMG SRC=\"../images/liste.png\" BORDER=\"0\" TITLE=\"Liste des photos stockage &eacute;l&egrave;ves...\"></A>&nbsp;</TD></FORM>" ;
        }
       Else { Echo "<TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;Aucune&nbsp;photo&nbsp;en&nbsp;stock.&nbsp;</TD>" ; }
      }
     ElseIf ($cpt > 0)
      {
       Echo "<FORM><TD ALIGN=\"CENTER\" BGCOLOR=\"".$l ["nom"]."\">&nbsp;" ;
       Echo "<INPUT TYPE=\"BUTTON\" NAME=\"submit\" VALUE=\"R&eacute;cup&eacute;ration du stockage -> Original\"" ;
       Echo " OnClick=\"javascript:location='./retaillage.php?numero=-".$lg ["numero"]."&type=-2&code=".$_SESSION ["code"]."'\">" ;
       Echo "<INPUT TYPE=\"HIDDEN\" NAME=\"\" VALUE=\"\">&nbsp;<A HREF=\"javascript:ouvrefenetre('./retaillage.php?numero=1&type=-5&util=-1',400,600);\" BORDER=\"0\">" ;
       Echo "<IMG SRC=\"../images/liste.png\" BORDER=\"0\" TITLE=\"Liste des photos stockage &eacute;l&egrave;ves...\"></A>&nbsp;</TD></FORM>" ;
      }
     Else { Echo "<TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;Aucune&nbsp;photo&nbsp;en&nbsp;stock.&nbsp;</TD>" ; }
     Echo "<TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD>" ;
     // Deplacement photos utilisateurs
     $res = SQL_commande ("SELECT COUNT(*) FROM tromb_utilisateurs WHERE traitee='1' AND vignette='1' AND deplacee='1' AND type='1'", $id_sql) ;
     $r = SQL_ligne_suivante ($res) ;
     $cpt = 0 ;
     $rep = retrouve_variable ("repertoire_stockage_photos_utilisateurs").$numero_rne.$separateur ;
     If ($dir = @OpenDir ($repertoire_racine.$rep))
      {
       While ($fiche = @ReadDir ($dir))
        {
	 If (($fiche != ".") And ($fiche != "..") And (FileType ($repertoire_racine.$rep.$separateur.$fiche) != "dir") And (FileSize ($repertoire_racine.$rep.$separateur.$fiche) > 0))
	  { $cpt++ ; }
	}
      }
     If ($r [0] > 0)
      {
       If ($cpt > 0)
        {
         Echo "<FORM><TD ALIGN=\"CENTER\">&nbsp;" ;
         Echo "<INPUT TYPE=\"BUTTON\" NAME=\"submit\" VALUE=\"Stockage -> Original\"" ;
         Echo " OnClick=\"javascript:location='./retaillage.php?numero=-".$lg ["numero"]."&type=-4&code=".$_SESSION ["code"]."'\">" ;
         Echo "<INPUT TYPE=\"HIDDEN\" NAME=\"\" VALUE=\"\">&nbsp;<A HREF=\"javascript:ouvrefenetre('./retaillage.php?numero=1&type=-5&util=-2',400,600);\" BORDER=\"0\">" ;
         Echo "<IMG SRC=\"../images/liste.png\" BORDER=\"0\" TITLE=\"Liste des photos stockage utilisateurs...\"></A>&nbsp;</TD></FORM>" ;
        }
       Else { Echo "<TD>&nbsp;Aucune&nbsp;photo&nbsp;en&nbsp;stock.&nbsp;</TD>" ; }
      }
     ElseIf ($cpt > 0)
      {
       Echo "<FORM><TD ALIGN=\"CENTER\">&nbsp;" ;
       Echo "<INPUT TYPE=\"BUTTON\" NAME=\"submit\" VALUE=\"R&eacute;cup&eacute;ration du stockage -> Original\"" ;
       Echo " OnClick=\"javascript:location='./retaillage.php?numero=-".$lg ["numero"]."&type=-2&code=".$_SESSION ["code"]."'\">" ;
       Echo "<INPUT TYPE=\"HIDDEN\" NAME=\"\" VALUE=\"\">&nbsp;<A HREF=\"javascript:ouvrefenetre('./retaillage.php?numero=1&type=-5&util=-2',400,600);\" BORDER=\"0\">" ;
       Echo "<IMG SRC=\"../images/liste.png\" BORDER=\"0\" TITLE=\"Liste des photos stockage &eacute;l&egrave;ves...\"></A>&nbsp;</TD></FORM>" ;
      }
     Else { Echo "<TD>&nbsp;Aucune&nbsp;photo&nbsp;en&nbsp;stock.&nbsp;</TD>" ; }
     Echo "</TR>" ;
     Echo "<TR><TD BGCOLOR=\"".$l ["nom"]."\">&nbsp;</TD><TD BGCOLOR=\"#000000\" WIDTH=\"1\"></TD><TD></TD></TR>" ;
     Echo "</TABLE></TD></TR></TABLE><BR>" ;
    }
   Else
    {
     Echo "<BR><BR><CENTER>Il n'y a aucun programme d&eacute;fini !</CENTER>" ;
    }
  }
 Else
  {
   If ($ok < 0) { Echo "<BR><BR><CENTER>Vous devez corriger ces probl&egrave;mes avant de retailler les photos !</CENTER>" ; }
   Else { Echo "<BR><BR><CENTER>Vous devez corriger ce probl&egrave;me avant de retailler les photos !</CENTER>" ; }
  } 
 Echo "</BODY></HTML>" ;
?>